home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / groff / 1.19.1 / tmac / e.tmac < prev    next >
Text File  |  2005-10-13  |  20KB  |  1,580 lines
  1. .\"    @(#)e.tmac    2.31 (Berkeley) 5/21/88
  2. .\"    Modified by James Clark for use with groff.
  3. .\"
  4. .\" Copyright (c) 1988 Regents of the University of California.
  5. .\" All rights reserved.
  6. .\"
  7. .\" Redistribution and use in source and binary forms are permitted
  8. .\" provided that this notice is preserved and that due credit is given
  9. .\" to the University of California at Berkeley. The name of the University
  10. .\" may not be used to endorse or promote products derived from this
  11. .\" software without specific prior written permission. This software
  12. .\" is provided ``as is'' without express or implied warranty.
  13. .if !\n(.g .ig
  14. .de @R
  15. .if !r\\$1 .nr \\$1 0
  16. ..
  17. .@R pf
  18. .if \n(pf .nx
  19. .if !\n(.g .ig
  20. .de @S
  21. .if !d\\$1 .ds \\$1 
  22. ..
  23. .@R @
  24. .de @C
  25. .nr _S \\n(.s
  26. .nr _V \\n(.v
  27. .nr _F \\n(.f
  28. .nr _J \\n(.j
  29. .do ds _A \\n[.fam]
  30. .nr _I \\n(.i
  31. .ev \\$1
  32. .ps \\n(_S
  33. .vs \\n(_Vu
  34. .ft \\n(_F
  35. .ad \\n(_J
  36. .do @fam \\*(_A
  37. 'in \\n(_Iu
  38. .xl \\n($lu
  39. .lt \\n($lu
  40. .rr _S
  41. .rr _V
  42. .rr _F
  43. .rr _I
  44. .rr _J
  45. .ls 1
  46. 'ce 0
  47. ..
  48. .de @D
  49. .ds |p "\\$3
  50. .nr _d 0
  51. .if "\\$2"C" \
  52. .nr _d 1
  53. .if "\\$2"L" \
  54. .nr _d 2
  55. .if "\\$2"I" \
  56. .nr _d 3
  57. .if "\\$2"M" \
  58. .nr _d 4
  59. .if !\\n(_d \{\
  60. .nr _d \\$1
  61. .ds |p "\\$2
  62. .\}
  63. ..
  64. .de @z
  65. .if \n@>1 .tm >> @z, .z=\\n(.z ?a=\\n(?a
  66. .if !"\\n(.z"" \
  67. \{\
  68. .tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)
  69. .di
  70. .ex
  71. .\}
  72. .if \\n(?a \
  73. .bp
  74. .ds bp
  75. .ds @b
  76. .br
  77. .if \n@>1 .tm << @z
  78. ..
  79. .ie \n(.g .ds $* \\\\$*
  80. .el .ds $* \\\\$1 \\\\$2 \\\\$3 \\\\$4 \\\\$5 \\\\$6 \\\\$7 \\\\$8 \\\\$9
  81. .de he
  82. .ie !\\n(.$ \
  83. \{\
  84. .rm |4
  85. .rm |5
  86. .\}
  87. .el \
  88. \{\
  89. .ds |4 "\*($*
  90. .ds |5 "\*($*
  91. .\}
  92. ..
  93. .de eh
  94. .ie !\\n(.$ \
  95. .rm |4
  96. .el \
  97. .ds |4 "\*($*
  98. ..
  99. .de oh
  100. .ie !\\n(.$ \
  101. .rm |5
  102. .el \
  103. .ds |5 "\*($*
  104. ..
  105. .de fo
  106. .ie !\\n(.$ \
  107. \{\
  108. .rm |6
  109. .rm |7
  110. .\}
  111. .el \
  112. \{\
  113. .ds |6 "\*($*
  114. .ds |7 "\*($*
  115. .\}
  116. ..
  117. .de ef
  118. .ie !\\n(.$ \
  119. .rm |6
  120. .el \
  121. .ds |6 "\*($*
  122. ..
  123. .de of
  124. .ie !\\n(.$ \
  125. .rm |7
  126. .el \
  127. .ds |7 "\*($*
  128. ..
  129. .de ep
  130. .if \\n(nl>0 \
  131. \{\
  132. .wh 0
  133. .rs
  134. .@b
  135. .\}
  136. ..
  137. .de @h
  138. .if \n@>1 .tm >> @h %=\\n% ?a=\\n(?a ?b=\\n(?b ?w=\\n(?w
  139. .if (\\n(.i+\\n(.o)>=\\n(.l \
  140. .tm Line \\n(c. -- Offset + indent exceeds line length
  141. .nr ?h \\n(?H
  142. .nr ?H 0
  143. .nr ?c \\n(?C
  144. .nr ?C 0
  145. .rn |4 |0
  146. .rn |5 |1
  147. .rn |6 |2
  148. .rn |7 |3
  149. .nr _w 0
  150. .nr ?W 0
  151. .nr ?I 1
  152. .ev 2
  153. .rs
  154. .if \\n(hm>0 \
  155. .sp |\\n(hmu
  156. .@t $h
  157. .if \\n(tm<=0 \
  158. .nr tm \n(.Vu
  159. .sp |\\n(tmu
  160. .ev
  161. .mk _k
  162. .if \\n(?n .nm 1
  163. .nr $c 1
  164. .if \n@>4 .tm -- @h >> .ns nl=\\n(nl %=\\n% _k=\\n(_k tm=\\n(tm
  165. .ie \\n(?s \
  166. \{\
  167. .nr ?s 0
  168. .rs
  169. '    @b
  170. .\}
  171. .el \
  172. .@n
  173. .if \n@>2 .tm << @h
  174. ..
  175. .de @n
  176. .if \n@>3 .tm >> @n nl=\\n(nl %=\\n% ?f=\\n(?f ?o=\\n(?o
  177. .if \\n(bm<=0 \
  178. .nr bm \\n(.Vu
  179. .if (\\n(_w<=\\n($l)&(\\n(?W=0) \
  180. \{\
  181. .nr _b (\\n(ppp*\\n($vu)/200u
  182. .if \\n(_bu>((\\n(bmu-\\n(fmu-((\\n(tpp*\\n($vu)/100u))/2u) \
  183. .nr _b (\\n(ppp*\\n($vu)/100u-\n(.Vu
  184. .nr _b +\\n(bmu
  185. .\}
  186. .nr _B \\n(_bu
  187. .ch @f
  188. .wh -\\n(_bu @f
  189. .nr _b +(\\n(ppp*\\n($vu)/100u
  190. .if \n@>2 .tm @n .p=\\n(.p bm=\\n(bm _b=\\n(_b _B=\\n(_B
  191. .nr ?f 0
  192. .if \\n(?o \
  193. \{\
  194. .(f _
  195. .nf
  196. .|o
  197. .fi
  198. .)f
  199. .rm |o
  200. .\}
  201. .nr ?o 0
  202. .if \\n(?T \
  203. \{\
  204. .nr _i \\n(.i
  205. .in 0
  206. .|h
  207. .in \\n(_iu
  208. .rr _i
  209. .mk #T
  210. .ns
  211. .\}
  212. .if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
  213. \{\
  214. .nr ?a 0
  215. .@k |t
  216. .if \\n(?w \
  217. .mk _k
  218. .nr ?w 0
  219. .\}
  220. .os
  221. .$H
  222. .ns
  223. ..
  224. .de @f
  225. .if \n@>1 .tm >> @f %=\\n% nl=\\n(nl ?a=\\n(?a ?b=\\n(?b ?f=\\n(?f
  226. .if \n@>2 .nr VL \\n(.pu-\\n(nlu
  227. .if \n@>2 .tm @f bm=\\n(bm _B=\\n(_B _b=\\n(_b .p-nl=\\n(VL
  228. .ec
  229. .if \\n(?T \
  230. \{\
  231. .nr T. 1
  232. .T# 1
  233. .br
  234. .\}
  235. .ev 2
  236. .ce 0
  237. .if \\n(?b \
  238. \{\
  239. .nr ?b 0
  240. .@k |b
  241. .\}
  242. .if \\n(?f \
  243. .@o
  244. .ie \\n($c<\\n($m \
  245. .@c
  246. .el \
  247. .@e
  248. .ev
  249. .if \n@>2 .tm << @f
  250. ..
  251. .de @o
  252. .nf
  253. .ls 1
  254. .in 0
  255. .if \n@>2 .tm @o last printed text = \\n(nl placing @r trap at -\\n(_B
  256. .wh -\\n(_Bu @r
  257. .|f
  258. .fi
  259. .if \n@>2 .tm @o triggered @r (?o) = \\n(?o
  260. .if \\n(?o \
  261. \{\
  262. .di
  263. .if \\n(dn=0 \
  264. \{\
  265. .rm |o
  266. .nr ?o 0
  267. .\}
  268. .nr dn \\n(_D
  269. .rr _D
  270. .\}
  271. .rm |f
  272. .ch @r
  273. ..
  274. .de @c
  275. .if \n@>2 .tm    >> @c %=\\n%
  276. .rs
  277. .sp |\\n(_ku
  278. .@O +\\n($lu+\\n($su
  279. .nr $c +1
  280. .@n
  281. ..
  282. .de @e
  283. .if \n@>2 .tm    >> @e
  284. .@O \\n(_ou
  285. .rs
  286. .sp |\\n(.pu-\\n(fmu-((\\n(tpp*\\n($vu)/100u)
  287. .@t $f
  288. .nr ?h 0
  289. .bp
  290. ..
  291. .de @t
  292. .if !\\n(?h \
  293. \{\
  294. .sz \\n(tp
  295. .@F \\n(tf
  296. .lt \\n(_Lu
  297. .nf
  298. .\\$1
  299. .br
  300. .\}
  301. ..
  302. .de $h
  303. .ds |z
  304. .if !\\n(?c \
  305. \{\
  306. .if e .ds |z "\\*(|0
  307. .if o .ds |z "\\*(|1
  308. .\}
  309. .if !\(ts\\*(|z\(ts\(ts \
  310. '    tl \\*(|z
  311. .rm |z
  312. ..
  313. .de $f
  314. .ds |z
  315. .if \\n(?c \
  316. \{\
  317. .if e .ds |z "\\*(|0
  318. .if o .ds |z "\\*(|1
  319. .\}
  320. .if \(ts\\*(|z\(ts\(ts \
  321. \{\
  322. .if e .ds |z "\\*(|2
  323. .if o .ds |z "\\*(|3
  324. .\}
  325. .if !\(ts\\*(|z\(ts\(ts \
  326. '    tl \\*(|z
  327. .rm |z
  328. ..
  329. .de @r
  330. .if \n@>3 .tm        >> @r .z=\\n(.z ?f=\\n(?f ?a=\\n(?a ?b=\\n(?b _b=\\n(_b
  331. .di |o
  332. .nr ?o 1
  333. .nr _D \\n(dn
  334. .ns
  335. ..
  336. .rn bp @b
  337. .de bp
  338. .nr $c \\n($m
  339. .ie \\n(nl>0 \
  340. .@b \\$1
  341. .el \
  342. \{\
  343. .if \\n(.$>0 \
  344. .pn \\$1
  345. .if \\n(?I \
  346. .@h
  347. .\}
  348. .br
  349. .wh 0 @h
  350. ..
  351. .rn ll xl
  352. .de ll
  353. .xl \\$1
  354. .lt \\$1
  355. .nr $l \\n(.l
  356. .if (\\n($m<=1):(\\n($l>\\n(_L) \
  357. .nr _L \\n(.l
  358. ..
  359. .rn po @O
  360. .de po
  361. .@O \\$1
  362. .nr _o \\n(.o
  363. ..
  364. .if !\n(.g .ig
  365. .do rn fam @fam
  366. .do de fam
  367. .do @fam \\$1
  368. .ev 2
  369. .do @fam \\$1
  370. .ev
  371. ..
  372. .de hx
  373. .nr ?H 1
  374. ..
  375. .de ix
  376. 'in \\$1
  377. ..
  378. .de bl
  379. .br
  380. .ne \\$1
  381. .rs
  382. .sp \\$1
  383. ..
  384. .de n1
  385. .nm 1
  386. .xl -\w'0000'u
  387. .nr ?n 1
  388. ..
  389. .de n2
  390. .nm \\$1
  391. .ie \\n(.$ \
  392. .xl -\w'0000'u
  393. .el \
  394. .xl \\n($lu
  395. ..
  396. .de pa
  397. .bp \\$1
  398. ..
  399. .de ro
  400. .af % i
  401. ..
  402. .de ar
  403. .af % 1
  404. ..
  405. .de m1
  406. .nr _0 \\n(hmu
  407. .nr hm \\$1v
  408. .nr tm +\\n(hmu-\\n(_0u
  409. .rr _0
  410. ..
  411. .de m2
  412. .nr tm \\n(hmu+\\n(tpp+\\$1v
  413. ..
  414. .de m3
  415. .nr bm \\n(fmu+\\n(tpp+\\$1v
  416. ..
  417. .de m4
  418. .nr _0 \\n(fmu
  419. .nr fm \\$1v
  420. .nr bm +\\n(fmu-\\n(_0u
  421. ..
  422. .de sk
  423. .if \\n(.$>0 \
  424. .tm Line \\n(c. -- I cannot skip multiple pages
  425. .nr ?s 1
  426. ..
  427. .if !\n(.g .ig
  428. .de re
  429. .ta T 0.5i
  430. ..
  431. .if \n(.g .ig
  432. .de re
  433. .ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
  434. ..
  435. .de ba
  436. .ie \\n(.$ \
  437. .nr $i \\$1n
  438. .el \
  439. .nr $i \\n(siu*\\n($0u
  440. ..
  441. .de hl
  442. .br
  443. .ie \n(.g .do nr _I \\n[.in]
  444. .el .nr _I \\n(.i
  445. \l'\\n(.lu-\\n(_Iu'
  446. .sp
  447. ..
  448. .de pp
  449. .lp \\n(piu
  450. ..
  451. .de lp
  452. .@p
  453. .if \\n(.$ \
  454. .ti +\\$1
  455. .nr $p 0 1
  456. ..
  457. .de ip
  458. .if (\\n(ii>0)&(\\n(ii<1n) \
  459. .nr ii \\n(iin
  460. .nr _0 \\n(ii
  461. .if \\n(.$>1 \
  462. .nr _0 \\$2n
  463. .@p \\n(_0u
  464. .nr _I \\n(.iu
  465. .in 0
  466. .di |i
  467. \&\\$1
  468. .br
  469. .di
  470. .in \\n(_Iu
  471. .ds |j \\*(|i\\
  472. .if \\w"\\*(|j" \
  473. \{\
  474. .ti -\\n(_0u
  475. .ie \\w"\\*(|j">=\\n(_0 \
  476. \{\
  477. \\*(|j
  478. .br
  479. .\}
  480. .el \\*(|j\h'|\\n(_0u'\c
  481. .\}
  482. .rr _0
  483. .rm |i |j
  484. ..
  485. .de np
  486. .if '\\n($p'-1' \
  487. .nr $p 0
  488. .nr $p +1
  489. .@p \w'\0(000)\0'u
  490. .ti -\w'\0(000)\0'u
  491. \0(\\n($p)\h'|\w'\0(000)\0'u'\c
  492. ..
  493. .de bu
  494. .br
  495. .if '\\n($p'-1' \
  496. .ns
  497. .nr $p 0-1
  498. .@p \w'\0\(bu\0'u
  499. .ti -\w'\0\(bu\0'u
  500. \0\(bu\0\c
  501. ..
  502. .de @p
  503. .if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation
  504. .in \\n($iu+\\n(pou
  505. .if \\n(.$ \
  506. .in +\\$1n
  507. .ce 0
  508. .fi
  509. .@F \\n(pf
  510. .sz \\n(pp
  511. .sp \\n(psu
  512. .ne \\n(.Lv+\\n(.Vu
  513. .ns
  514. ..
  515. .de sh
  516. .fi
  517. .if (\\n(si>0)&(\\n(si<1n) \
  518. .nr si \\n(sin
  519. .ce 0
  520. .@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
  521. .if !"\\$2"_" \
  522. \{\
  523. .ds |n \&\\$2
  524. .$p "\\*(|n" "\\*($n" \\n($0
  525. .$0 "\\*(|n" "\\*($n" \\n($0
  526. .rm |n
  527. .\}
  528. .nr $p 0 1
  529. ..
  530. .de @d
  531. .if !""\\$1" \
  532. .nr $0 \\$1
  533. .if \\n($0&(\\n(.$>1) \
  534. .nr $\\n($0 \\$2
  535. .ds $n \&
  536. .ie \\n($0>=1 \
  537. \{\
  538. .if '\\n($1'0' \
  539. .nr $1 1
  540. .if (\\n(.$>=3) .if !"\\$3"-" \
  541. .nr $1 \\$3
  542. .as $n \\n($1
  543. .\}
  544. .el \
  545. .nr $1 0
  546. .ie \\n($0>=2 \
  547. \{\
  548. .if '\\n($2'0' \
  549. .nr $2 1
  550. .if (\\n(.$>=4) .if !"\\$4"-" \
  551. .nr $2 \\$4
  552. .as $n .\\n($2
  553. .\}
  554. .el \
  555. .nr $2 0
  556. .ie \\n($0>=3 \
  557. \{\
  558. .if '\\n($3'0' \
  559. .nr $3 1
  560. .if (\\n(.$>=5) .if !"\\$5"-" \
  561. .nr $3 \\$5
  562. .as $n .\\n($3
  563. .\}
  564. .el \
  565. .nr $3 0
  566. .ie \\n($0>=4 \
  567. \{\
  568. .if '\\n($4'0' \
  569. .nr $4 1
  570. .if (\\n(.$>=6) .if !"\\$6"-" \
  571. .nr $4 \\$6
  572. .as $n .\\n($4
  573. .\}
  574. .el \
  575. .nr $4 0
  576. .ie \\n($0>=5 \
  577. \{\
  578. .if '\\n($5'0' \
  579. .nr $5 1
  580. .if (\\n(.$>=7) .if !"\\$7"-" \
  581. .nr $5 \\$7
  582. .as $n .\\n($5
  583. .\}
  584. .el \
  585. .nr $5 0
  586. .ie \\n($0>=6 \
  587. \{\
  588. .if '\\n($6'0' \
  589. .nr $6 1
  590. .if (\\n(.$>=8) .if !"\\$8"-" \
  591. .nr $6 \\$8
  592. .as $n .\\n($6
  593. .\}
  594. .el \
  595. .nr $6 0
  596. ..
  597. .de sx
  598. .ce 0
  599. .ul 0
  600. .nr _0 \\n($0-1
  601. .if \\n(.$ .nr _0 +1
  602. .if \\n(.$ .nr _0 \\$1
  603. .@d \\n(_0
  604. .rr _0
  605. .$p "" "" \\n($0
  606. .nr $p 0 1
  607. ..
  608. .de uh
  609. .$p "\\$1"
  610. .$0 "\\$1"
  611. ..
  612. .de $p
  613. .if (\\n(si>0)&(\\n(.$>2) \
  614. .nr $i \\$3*\\n(si
  615. .in \\n($iu
  616. .ie !"\\$1\\$2"" \
  617. \{\
  618. .sp \\n(ssu
  619. .ne \\n(.Lv+\\n(.Vu+\\n(psu+((\\n(spp*\\n($vu*\\n(.Lu)/100u)
  620. .ie 0\\$3 \
  621. .ti -(\\n(siu-\\n(sou)
  622. .el \
  623. .ti +\\n(sou
  624. .@F \\n(sf
  625. .sz \\n(sp
  626. .if 0\\$3 \
  627. .$\\$3
  628. .if \w"\\$2">0 \\$2.
  629. .if \w"\\$1">0 \\$1\f1\ \ \&
  630. .\}
  631. .el \
  632. .sp \\n(psu
  633. .@F \\n(pf
  634. .sz \\n(pp
  635. ..
  636. .de 2c
  637. .br
  638. .if \\n($m>1 \
  639. .1c
  640. .nr $c 1
  641. .nr $m 2
  642. .if \\n(.$>1 \
  643. .nr $m \\$2
  644. .if \\n(.$>0 \
  645. .nr $s \\$1n
  646. .nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
  647. .xl \\n($lu
  648. .mk _k
  649. .ns
  650. ..
  651. .de 1c
  652. .br
  653. .nr $c 1
  654. .nr $m 1
  655. .ll \\n(_Lu
  656. .sp |\\n(.hu
  657. .@O \\n(_ou
  658. ..
  659. .de bc
  660. .sp 24i
  661. ..
  662. .de (z
  663. .if \n@>4 .tm >> (z, .z=\n(.z
  664. .@D 4 \\$1 \\$2
  665. .@(
  666. ..
  667. .de )z
  668. .if \n@>4 .tm >> )z, .z=\n(.z
  669. .sp \\n(zsu
  670. .@)
  671. .if \n@>4 .tm -- )z << @), .z=\n(.z
  672. .rr _0
  673. .if !\\n(?b \
  674. .nr dn +(\\n(ppp*\\n($vu)/200u+\\n(zsu
  675. .nr dl -\n(.H
  676. .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \
  677. \{\
  678. .nr ?a 1
  679. .if (\\n(dl>\\n($l)&(\\n($m>1) \
  680. .nr ?w 1
  681. .ds |x |t
  682. .\}
  683. .el \
  684. \{\
  685. .nr ?b 1
  686. .if (\\n(dl>\\n($l)&(\\n($m>1) \
  687. .nr ?W 1
  688. .nr _b +\\n(dnu
  689. .if \\n(.p-\\n(nl-\n(.V<\\n(_b \
  690. .nr _b \\n(.p-\\n(nl-\n(.V
  691. .ch @f -\\n(_bu
  692. .ds |x |b
  693. .\}
  694. .da \\*(|x
  695. .nf
  696. .ls 1
  697. .nr ?k 1
  698. .if \n@>4 .tm -- )z >> \\*(|x
  699. \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
  700. .|k
  701. .ec
  702. .if \n@>4 .tm -- )z << \\*(|x, .z=\\n(.z
  703. .nr ?k 0
  704. .rm |k
  705. .da
  706. .in 0
  707. .ls 1
  708. .xl \\n($lu
  709. .ev
  710. .if \n@>4 .tm << )z, .z=\\n(.z
  711. ..
  712. .de @k
  713. .if \n@>4 .tm >> @k, $1=\\$1, .z=\\n(.z
  714. .ev 1
  715. .nf
  716. .ls 1
  717. .in 0
  718. .sp \\n(zsu
  719. .\\$1
  720. .ec
  721. .br
  722. .rm \\$1
  723. .ev
  724. ..
  725. .de (t
  726. .(z \\$1 \\$2
  727. ..
  728. .de )t
  729. .)z \\$1 \\$2
  730. ..
  731. .de (b
  732. .br
  733. .@D 3 \\$1 \\$2
  734. .sp \\n(bsu
  735. .@(
  736. ..
  737. .de )b
  738. .br
  739. .@)
  740. .if (\\n(bt=0):(\\n(.t<\\n(bt) \
  741. .ne \\n(dnu
  742. .ls 1
  743. .nf
  744. .|k
  745. .ec
  746. .fi
  747. .in 0
  748. .xl \\n($lu
  749. .ev
  750. .rm |k
  751. .sp \\n(bsu+\\n(.Lv-1v
  752. ..
  753. .de @(
  754. .if !"\\n(.z"" .tm Line \\n(c. -- Invalid nested keep \\n(.z
  755. .@M
  756. .di |k
  757. \!'rs
  758. ..
  759. .de @M
  760. .nr ?k 1
  761. .@C 1
  762. .@F \\n(df
  763. .if \\n($R .@V
  764. .vs \\n(.sp*\\n($Vu/100u
  765. .nf
  766. .if "\\*(|p"F" \
  767. .fi
  768. .if \\n(_d=4 \
  769. .in 0
  770. .if \\n(_d=3 \
  771. \{\
  772. .in +\\n(biu
  773. .xl -\\n(biu
  774. .\}
  775. .if \\n(_d=1 \
  776. .ce 10000
  777. ..
  778. .de @)
  779. .br
  780. .if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened
  781. .nr ?k 0
  782. .di
  783. .in 0
  784. .ce 0
  785. ..
  786. .de (c
  787. .if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests
  788. .di |c
  789. ..
  790. .de )c
  791. .if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c
  792. .br
  793. .di
  794. .if \n@>4 .tm >> .)c .l=\\n(.l .i=\\n(.i $i=\\n($i dl=\\n(dl
  795. .ev 1
  796. .ls 1
  797. .in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
  798. .if \n@>4 .tm -- .)c << .in .l=\\n(.l .i=\\n(.i dl=\\n(dl
  799. .nf
  800. .|c
  801. .ec
  802. .in
  803. .ls
  804. .ev
  805. .rm |c
  806. ..
  807. .de (q
  808. .br
  809. .@C 1
  810. .fi
  811. .sp \\n(qsu
  812. .in +\\n(qiu
  813. .xl -\\n(qiu
  814. .sz \\n(qp
  815. ..
  816. .de )q
  817. .br
  818. .ev
  819. .sp \\n(qsu+\\n(.Lv-1v
  820. .nr ?k 0
  821. ..
  822. .de (l
  823. .br
  824. .sp \\n(bsu
  825. .@D 3 \\$1 \\$2
  826. .@M
  827. ..
  828. .de )l
  829. .br
  830. .ev
  831. .sp \\n(bsu+\\n(.Lv-1v
  832. .nr ?k 0
  833. ..
  834. .de EQ
  835. .ec
  836. .if !\\n(?e \
  837. \{\
  838. .if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
  839. .@D 1 "\\$1" "\\$2"
  840. .@C 2
  841. .di |e
  842. .\}
  843. .ls 1
  844. .in 0
  845. .nf
  846. ..
  847. .de EN
  848. .br
  849. .ie "\\$1"C" \
  850. \{\
  851. .nr ?e 1
  852. .sp \\n(esu
  853. .\}
  854. .el \
  855. \{\
  856. .nr ?e 0
  857. .di
  858. .if \\n(dn \
  859. .@q
  860. .rm |e
  861. .ev
  862. .\}
  863. ..
  864. .de @q
  865. .nr _Q \\n(dnu
  866. .ev
  867. .sp \\n(esu
  868. .if !"\\n(.z"" \!.ne \\n(_Qu
  869. .ne \\n(_Qu+\n(.Vu
  870. .@C 2
  871. .if \\n(_d=1 \
  872. .in (\\n(.lu+\\n($iu-\\n(dlu)/2u
  873. .if \\n(_d=2 \
  874. .in \\n($iu
  875. .if \\n(_d=3 \
  876. .in \\n(biu+\\n($iu
  877. .if \\n(_d=4 \
  878. .in 0
  879. .mk _q
  880. .if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p
  881. .if !"\\*(|p"" \
  882. \{\
  883. .rs
  884. .sp (\\n(_Qu-\\n(.vu)/2u
  885. .tl """\\*(|p"
  886. .rt \\n(_qu
  887. .\}
  888. .|e
  889. .sp |\\n(_qu+\\n(_Qu
  890. .sp \\n(esu+\\n(.Lv-1v
  891. .rr _q
  892. .rr _Q
  893. ..
  894. .de TS
  895. .sp \\n(bsu
  896. .@C 1
  897. .fi
  898. .if "\\$1"H" \
  899. \{\
  900. .di |h
  901. .nr ?T 1
  902. .\}
  903. .ls 1
  904. .ch @f -(\\n(_bu+1v)
  905. .if \\n(.p-\\n(_b-1v<=\\n(nl \
  906. .ch @f \\n(nlu+\n(.Vu
  907. ..
  908. .de TH
  909. .nr T. 0
  910. .T# 0
  911. .di
  912. .nr _T \\n(?T
  913. .nr ?T 0
  914. .ne \\n(dnu+1v
  915. .nr ?T \\n(_T
  916. .nr _i \\n(.i
  917. .in 0
  918. .|h
  919. .in \\n(_iu
  920. .rr _i
  921. .mk #T
  922. ..
  923. .de TE
  924. .nr ?T 0
  925. .ch @f -\\n(_bu
  926. .if \\n(.p-\\n(_b<=\\n(nl \
  927. .ch @f \\n(nlu+\n(.Vu
  928. .ev
  929. .sp \\n(bsu+\\n(.Lv-1v
  930. .re
  931. ..
  932. .de T&
  933. ..
  934. .de ][
  935. .if \\$1>5 .tm Bad arg to []
  936. .[\\$1
  937. ..
  938. .de [0
  939. .(f
  940. .ip "\\*([F.\0"
  941. .if !"\\*([A"" \\*([A,
  942. .if !"\\*([T"" \\f2\\*([T\\f1\c
  943. .if !"\\*([T"" .if !"\\*([O"" ,\
  944. .ie !"\\*([O"" \\*([O
  945. .el .if !"\\*([T"" \&.
  946. .if !"\\*([D"" \\*([D.
  947. .@p
  948. .)f
  949. ..
  950. .de [1
  951. .(f
  952. .ip "\\*([F.\0"
  953. \\*([A,
  954. .if !"\\*([T"" \\*(lq\\*([T,\\*(rq
  955. .if "\\*([V"" \\f2\\*([J\\f1,
  956. .if !"\\*([V"" \\f2\\*([J\\f1
  957. .if !"\\*([V"" \\f3\\*([V\\f1\c
  958. .if !"\\*([N"" (\\*([N)\c
  959. .if !"\\*([P"" \
  960. \{\
  961. .ie \\n([P>0 \ pp.\&
  962. .el \ p.\&
  963. \\*([P
  964. .\}
  965. .if !"\\*([I"" .if "\\*([R"" \\*([I,
  966. (\\*([D).
  967. .if !"\\*([O"" \\*([O
  968. .)f
  969. ..
  970. .de [2
  971. .(f
  972. .ip "\\*([F.\0"
  973. \\*([A, \\f2\\*([T,\\f1
  974. \\*([I\c
  975. .if !"\\*([C"" , \\*([C\c
  976.  (\\*([D).
  977. .if !"\\*([G"" Gov't. ordering no. \\*([G
  978. .if !"\\*([O"" \\*([O
  979. .)f
  980. ..
  981. .de [3
  982. .(f
  983. .ip "\\*([F.\0"
  984. \\*([A, \\*(lq\\*([T,\\*(rq
  985. .if !"\\*([P"" pp. \\*([P
  986. in \\f2\\*([B\\f1, \c
  987. .if !"\\*([E"" ed. \\*([E, \c
  988. .if !"\\*([I"" \\*([I\c
  989. .if !"\\*([C"" , \\*([C\c
  990.  (\\*([D).
  991. .if !"\\*([O"" \\*([O
  992. .)f
  993. ..
  994. .de [4
  995. .(f
  996. .ip "\\*([F.\0"
  997. \\*([A, \\*(lq\\*([T,\\*(rq
  998. \\*([R\c
  999. .if !"\\*([G"" \& (\\*([G)\c
  1000. .if !"\\*([I"" , \\*([I\c
  1001. .if !"\\*([C"" , \\*([C\c
  1002.  (\\*([D).
  1003. .if !"\\*([O"" \\*([O
  1004. .)f
  1005. ..
  1006. .de [5
  1007. .(f
  1008. .ip "\\*([F.\0"
  1009. \\*([A, \\f2\\*([T\\f1,
  1010. .ie \\n(TN \\*([M.
  1011. .el Bell Laboratories internal memorandum (\\*([D).
  1012. .)f
  1013. ..
  1014. .de ]<
  1015. .$p References
  1016. .lp
  1017. .rm (f )f
  1018. ..
  1019. .de ]>
  1020. .sp
  1021. ..
  1022. .de ]-
  1023. .rm [V [P [A [T [N [C [B [O [R [I [E [D
  1024. ..
  1025. .ie \n(.V<1v \
  1026. \{\
  1027. .ds [. \s-2\v'-.4m'\f1
  1028. .ds .] \v'.4m'\s+2\fP
  1029. .\}
  1030. .el \
  1031. \{\
  1032. .ds [. " [
  1033. .ds .] ]
  1034. .\}
  1035. .de IS
  1036. .nr g7 \\n(.u
  1037. .ls 1
  1038. ..
  1039. .de IF
  1040. .if \\n(g7 .fi
  1041. .ls
  1042. ..
  1043. .de IE
  1044. .if \\n(g7 .fi
  1045. .ls
  1046. ..
  1047. .de PS
  1048. .sp 0.3
  1049. .nr g7 \\$2
  1050. .in (u;\\n(.l-\\n(g7>?0/2)
  1051. .ne \\$1u
  1052. .nr g7 \\n(.u
  1053. .ls 1
  1054. ..
  1055. .de PE
  1056. .ls
  1057. .in
  1058. .if \\n(g7 .fi
  1059. .sp .6
  1060. ..
  1061. .de GS
  1062. .nr g7 (\\n(.lu-\\n(g1u)/2u
  1063. .if "\\$1"L" .nr g7 \\n(.iu
  1064. .if "\\$1"R" .nr g7 \\n(.lu-\\n(g1u
  1065. .in \\n(g7u
  1066. .nr g7 \\n(.u
  1067. .ls 1
  1068. .nf
  1069. .ne \\n(g2u
  1070. ..
  1071. .de GE
  1072. .GF
  1073. .sp .6
  1074. ..
  1075. .de GF
  1076. .ls
  1077. .in
  1078. .if \\n(g7 .fi
  1079. ..
  1080. .de sz
  1081. .ps \\$1
  1082. .if \\n($r .@v
  1083. .vs \\n(.sp*\\n($vu/100u
  1084. ..
  1085. .de @v
  1086. .if (1i>=240u)&(1p<=\\n($r)&(\\n($r<=4p) .nr $v \\n($r00/1p
  1087. ..
  1088. .de @V
  1089. .if (1i>=240u)&(1p<=\\n($R)&(\\n($R<=4p) .nr $V \\n($R00/1p
  1090. ..
  1091. .de @E
  1092. .ie \\n(.f<10 \
  1093. .ds _F \\n(.f
  1094. .el \
  1095. \{\
  1096. .ie \\n(.f<100&\n(.g \
  1097. .ds _F (\\n(.f
  1098. .el \
  1099. .ds _F P
  1100. .\}
  1101. ..
  1102. .de r
  1103. .@E
  1104. .ft 1
  1105. .if \\n(.$ \&\\$1\f\\*(_F\\$2
  1106. ..
  1107. .de i
  1108. .@E
  1109. .ft 2
  1110. .if \\n(.$ \&\\$1\f\\*(_F\\$2
  1111. ..
  1112. .de b
  1113. .@E
  1114. .ft 3
  1115. .if \\n(.$ \&\\$1\f\\*(_F\\$2
  1116. ..
  1117. .de rb
  1118. .@E
  1119. .ft 3
  1120. .if \\n(.$ \&\\$1\f\\*(_F\\$2
  1121. ..
  1122. .de bi
  1123. .@E
  1124. .ft 4
  1125. .if \\n(.$ \&\\$1\f\\*(_F\\$2
  1126. ..
  1127. .de u
  1128. \&\\$1\l'|0\(ul'\\$2
  1129. ..
  1130. .if !\n(.g .ig
  1131. .de u
  1132. \Z'\\$1'\v'.25m'\D'l \w'\\$1'u 0'\v'-.25m'\\$2
  1133. ..
  1134. .de q
  1135. \&\\*(lq\\$1\\*(rq\\$2
  1136. ..
  1137. .de bx
  1138. \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
  1139. ..
  1140. .de sm
  1141. \s-1\\$1\\s0\\$2
  1142. ..
  1143. .de @F
  1144. .nr ~ \\$1
  1145. .if \\n~>0 \
  1146. .ft \\n~
  1147. .rr ~
  1148. ..
  1149. .de (f
  1150. .ec
  1151. .if "\\n(.z"|f" .tm Line \\n(c. -- Invalid footnote nesting
  1152. .ie "\\n(.z"" \
  1153. \{\
  1154. .nr _D \\n(dn
  1155. .nr _0 1v+\\n(nlu
  1156. .ev 2
  1157. .da |f
  1158. .in 0
  1159. .xl \\n($lu-\\n(fuu
  1160. .@F \\n(ff
  1161. .sz \\n(fp
  1162. .vs \\n(.sp*\\n($Vu/100u
  1163. .if !\\n(?f \
  1164. \{\
  1165. .nr _b +1v
  1166. .$s
  1167. .\}
  1168. .br
  1169. .if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
  1170. \{\
  1171. .da
  1172. .bc
  1173. .if !\\n(?f \
  1174. .rm |f
  1175. .da |f
  1176. .in 0
  1177. .xl \\n($lu-\\n(fuu
  1178. .@F \\n(ff
  1179. .sz \\n(fp
  1180. .vs \\n(.sp*\\n($Vu/100u
  1181. .if !\\n(?f \
  1182. .$s
  1183. .br
  1184. .\}
  1185. .rr _0
  1186. .sp \\n(fsu
  1187. .nr ?f 1
  1188. .fi
  1189. .if !"\\$1"_" \
  1190. .ti \\n(fiu
  1191. .if \n@>2 .tm    << (f $f=\\n($f
  1192. .\}
  1193. .el \
  1194. \{\
  1195. .ev 2
  1196. .in 0
  1197. .xl \\n($lu-\\n(fuu
  1198. .@F \\n(ff
  1199. .sz \\n(fp
  1200. .vs \\n(.sp*\\n($Vu/100u
  1201. .fi
  1202. \!.(f \\$1
  1203. \!.@N
  1204. .\}
  1205. ..
  1206. .de @N
  1207. .ie "\\n(.z"" .nf
  1208. .el \!.@N
  1209. ..
  1210. .de )f
  1211. .ie "\\n(.z"|f" \
  1212. \{\
  1213. .if \\n* \
  1214. .nr $f +1
  1215. .ds * \\*{\\n($f\\*}\k*
  1216. .nr * 0
  1217. .in 0
  1218. .da
  1219. .ev
  1220. .if \\n(_w<\\n(dl \
  1221. .nr _w \\n(dl
  1222. .nr _b +\\n(dn
  1223. .ch @f -\\n(_bu
  1224. .if \\n(.p-\\n(_b<=\\n(nl \
  1225. .ch @f \\n(nlu+\n(.Vu
  1226. .nr dn \\n(_D
  1227. .rr _D
  1228. .\}
  1229. .el \
  1230. \{\
  1231. .br
  1232. \!.)f
  1233. .ev
  1234. .\}
  1235. ..
  1236. .@R ff
  1237. .if \n(ff<=0 \
  1238. .nr ff 1
  1239. .@R fp
  1240. .if \n(fp<=0 \
  1241. .nr fp 8
  1242. .de $s
  1243. \l'2i'
  1244. ..
  1245. .de (d
  1246. .am |d )d
  1247. .sp \\n(bsu
  1248. ..
  1249. .de )d
  1250. .if \\n# \
  1251. .nr $d +1
  1252. .ds # [\\n($d]\k#
  1253. .rr #
  1254. ..
  1255. .de pd
  1256. .|d
  1257. .rm |d
  1258. .nr $d 1 1
  1259. .ds # [1]\k#
  1260. ..
  1261. .nr _x 0 1
  1262. .af _x a
  1263. .de (x
  1264. .if \n@>4 .tm >> (x, .z=\\n(.z
  1265. .ds |X x
  1266. .if \\n(.$>0 \
  1267. .ds |X \\$1
  1268. .ie "\\n(.z"" \
  1269. .nr _z 0
  1270. .el \
  1271. .nr _z 1
  1272. .@\\n(_z
  1273. ..
  1274. .de @0
  1275. .am %\\*(|X )x
  1276. .sp \\n(xsu
  1277. .ti -\\n(piu
  1278. ..
  1279. .de @1
  1280. .if "\\n(_x"z" .nr _x 0
  1281. .de =\\n+(_x )x
  1282. ..
  1283. .de )x
  1284. .if \n@>4 .tm >> )x, .z=\\n(.z
  1285. .ie "\\n(.z"" \
  1286. \{\
  1287. .ds |x \\n%
  1288. .if \\n(.$>0 \
  1289. .ds |x \\$1
  1290. .if "\\*(|x"_" \
  1291. .ig ..
  1292. .am %\\*(|X ..
  1293. .if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \
  1294. .ti +\\n(xuu
  1295. \\\\a\\\\t\\$2\\*(|x
  1296. ...
  1297. .rm |x
  1298. .rm |X
  1299. .\}
  1300. .el \
  1301. \{\
  1302. \!.(x \\*(|X
  1303. \!\\\\*(=\\n(_x\\\\
  1304. \!.)x \\$1 \\$2
  1305. \!.rm =\\n(_x
  1306. .\}
  1307. ..
  1308. .de xp
  1309. .br
  1310. .@C 2
  1311. .ls 1
  1312. .vs \\n(.sp*\\n($Vu/100u
  1313. .fi
  1314. .in +\\n(piu
  1315. .ds |X x
  1316. .if \\n(.$>0 \
  1317. .ds |X \\$1
  1318. .xl -(\\n(xuu+\w'...'u)
  1319. .di |x
  1320. .%\\*(|X
  1321. .br
  1322. .di
  1323. .rm %\\*(|X
  1324. .xl \\n($lu
  1325. .rm |X
  1326. .ev
  1327. .nf
  1328. .in 0
  1329. .ta \\n(.lu-\\n(xuuR \\n(.luR
  1330. .|x
  1331. .fi
  1332. .in
  1333. .rm |x
  1334. ..
  1335. .de +c
  1336. .ep
  1337. .if \\n(?o:\\n(?a \
  1338. \{\
  1339. .bp
  1340. .rs
  1341. .ep
  1342. .\}
  1343. .nr ?C 1
  1344. .nr $f 1 1
  1345. .ds * \\*{1\\*}\k*
  1346. .if \\n(?R \
  1347. .pn 1
  1348. .bp
  1349. .in \\n($iu
  1350. .rs
  1351. .ie \\n(.$ \
  1352. .$c "\\$1"
  1353. .el \
  1354. .sp 3
  1355. ..
  1356. .de ++
  1357. .nr _0 0
  1358. .if "\\$1"C" \
  1359. .nr _0 1
  1360. .if "\\$1"RC" \
  1361. .nr _0 11
  1362. .if "\\$1"A" \
  1363. .nr _0 2
  1364. .if "\\$1"RA" \
  1365. .nr _0 12
  1366. .if "\\$1"P" \
  1367. .nr _0 3
  1368. .if "\\$1"B" \
  1369. .nr _0 4
  1370. .if "\\$1"AB" \
  1371. .nr _0 5
  1372. .if \\n(_0=0 \
  1373. .tm Line \\n(c. -- Bad mode to .++
  1374. .nr ?R 0
  1375. .if \\n(_0>10 \
  1376. .\{
  1377. .nr ?R 1
  1378. .nr _0 -10
  1379. .\}
  1380. .nr ch 0 1
  1381. .if (\\n(_0=3):(\\n(_0=5) \
  1382. .pn 1
  1383. .if !\\n(_0=\\n(_M .if \\n(_M=3 \
  1384. .pn 1
  1385. .ep
  1386. .if \\n(_0=1 \
  1387. \{\
  1388. .af ch 1
  1389. .af % 1
  1390. .\}
  1391. .if \\n(_0=2 \
  1392. \{\
  1393. .af ch A
  1394. .af % 1
  1395. .\}
  1396. .if \\n(_0=3 \
  1397. .af % i
  1398. .if \\n(_0=4 \
  1399. .af % 1
  1400. .if \\n(_0=5 \
  1401. .af % 1
  1402. .if \\n(.$>1 \
  1403. .he \\$2
  1404. .nr _M \\n(_0
  1405. .rr _0
  1406. ..
  1407. .de $c
  1408. .sz 12
  1409. .ft 3
  1410. .ce 1000
  1411. .if \\n(_M<3 \
  1412. .nr ch +1
  1413. .ie \\n(_M=1 CHAPTER\ \ \\n(ch
  1414. .el .if \\n(_M=2 APPENDIX\ \ \\n(ch
  1415. .if \w"\\$1" .sp 3-\\n(.L
  1416. .if \w"\\$1" \\$1
  1417. .if (\\n(_M<3):(\w"\\$1") \
  1418. .sp 4-\\n(.L
  1419. .ce 0
  1420. .ft
  1421. .sz
  1422. .ie \\n(_M=1 \
  1423. .$C Chapter \\n(ch "\\$1"
  1424. .el .if \\n(_M=2 \
  1425. .$C Appendix \\n(ch "\\$1"
  1426. ..
  1427. .de tp
  1428. .hx
  1429. .bp
  1430. .br
  1431. .rs
  1432. .pn \\n%
  1433. ..
  1434. .if \n(mo=1 .ds mo January
  1435. .if \n(mo=2 .ds mo February
  1436. .if \n(mo=3 .ds mo March
  1437. .if \n(mo=4 .ds mo April
  1438. .if \n(mo=5 .ds mo May
  1439. .if \n(mo=6 .ds mo June
  1440. .if \n(mo=7 .ds mo July
  1441. .if \n(mo=8 .ds mo August
  1442. .if \n(mo=9 .ds mo September
  1443. .if \n(mo=10 .ds mo October
  1444. .if \n(mo=11 .ds mo November
  1445. .if \n(mo=12 .ds mo December
  1446. .if \n(dw=1 .ds dw Sunday
  1447. .if \n(dw=2 .ds dw Monday
  1448. .if \n(dw=3 .ds dw Tuesday
  1449. .if \n(dw=4 .ds dw Wednesday
  1450. .if \n(dw=5 .ds dw Thursday
  1451. .if \n(dw=6 .ds dw Friday
  1452. .if \n(dw=7 .ds dw Saturday
  1453. .nr y2 \n(yr%100
  1454. .af y2 00
  1455. .nr y4 \n(yr+1900
  1456. .ds td \*(mo \n(dy, \n(y4
  1457. .rr x
  1458. .nr $v \n(.v00+\n(.sp-1/\n(.sp
  1459. .nr $V \n($v
  1460. .nr hm 4v
  1461. .nr tm 7v
  1462. .nr bm 6v
  1463. .nr fm 3v
  1464. .nr tf 3
  1465. .nr tp 10
  1466. .hy 14
  1467. .nr bi 4m
  1468. .nr pi 5n
  1469. .nr pf 1
  1470. .nr pp 10
  1471. .nr qi 4n
  1472. .nr qp -1
  1473. .nr ii 5n
  1474. .nr $m 1
  1475. .nr $s 4n
  1476. .nr sf 3
  1477. .nr sp 10
  1478. .nr ss 12p
  1479. .nr si 0
  1480. .@R 0x
  1481. .ds { \v'-0.4m'\x'\\n(0x=0*-0.2m'\s-3
  1482. .ds } \s0\v'0.4m'
  1483. .ds [ \*{
  1484. .ds ] \*}
  1485. .ds < \v'0.4m'\x'\\n(0x=0*0.2m'\s-3
  1486. .ds > \s0\v'-0.4m'
  1487. .ds - \(em
  1488. .@S |0
  1489. .@S |1
  1490. .@S |2
  1491. .@S |3
  1492. .@S $H
  1493. .@S $0
  1494. .@S $1
  1495. .@S $2
  1496. .@S $3
  1497. .@S $4
  1498. .@S $5
  1499. .@S $6
  1500. .@S $7
  1501. .@S $8
  1502. .@S $9
  1503. .@S ..
  1504. .@R po
  1505. .@R $0
  1506. .@R $i
  1507. .@R $p
  1508. .@R $r
  1509. .@R $R
  1510. .@R df
  1511. .@R so
  1512. .@R fu
  1513. .@R bt
  1514. .@R *
  1515. .@R ?a
  1516. .@R ?b
  1517. .@R ?C
  1518. .@R ?e
  1519. .@R ?H
  1520. .@R ?I
  1521. .@R ?n
  1522. .@R ?o
  1523. .@R ?R
  1524. .@R ?s
  1525. .@R ?T
  1526. .@R ?W
  1527. .@R ?w
  1528. .nr fi 0.3i
  1529. .nr _o \n(.o
  1530. .nr $b 3
  1531. .nr ps 0.35v
  1532. .if \n(ps<\n(.V .nr ps \n(.V
  1533. .nr bs \n(ps
  1534. .nr qs \n(ps
  1535. .nr zs 1v
  1536. .nr xs 0.2v
  1537. .nr xu 0.5i
  1538. .nr fs 0.2v
  1539. .nr es 0.5v
  1540. .if \n(es<\n(.V .nr es \n(.V
  1541. .wh 0 @h
  1542. .nr $l \n(.lu
  1543. .nr _L \n(.lu
  1544. .nr $c 1
  1545. .nr $f 1 1
  1546. .ds * \*{1\*}\k*
  1547. .nr $d 1 1
  1548. .ds # [1]\k#
  1549. .nr _M 1
  1550. .ds lq \(lq
  1551. .ds rq \(rq
  1552. .em @z
  1553. .ds #h ((1u-(\\\\n(.fu%2u))*0.13m)
  1554. .ds #v 0.6m
  1555. .ds ' \k_\h'-(\\n(.wu*8/10-\*(#h)'\(aa\h'|\\n_u'
  1556. .ds ` \k_\h'-(\\n(.wu*7/10-\*(#h)'\(ga\h'|\\n_u'
  1557. .ds : \k_\h'-(\\n(.wu*8/10-\*(#h+0.1m)'\v'-\*(#v'\z.\h'0.2m'.\h'|\\n_u'\v'\*(#v'
  1558. .ds ^ \k_\h'-(\\n(.wu-\*(#h-0.05m)'^\h'|\\n_u'
  1559. .ds ~ \k_\h'-(\\n(.wu-\*(#h-0.05m)'~\h'|\\n_u'
  1560. .ds , \k_\h'-(\\n(.wu)',\h'|\\n_u'
  1561. .ds v \k_\h'-(\\n(.wu*9/10-\*(#h)'\v'-\*(#v'\s-4v\s0\v'\*(#v'\h'|\\n_u'
  1562. .ds o \k_\h'-(\\n(.wu+\w'\(de'u-\*(#h)/2u'\v'-0.4n'\z\(de\v'0.4n'\h'|\\n_u'
  1563. .ds qe \s-2\v'0.45m'\z\(em\v'-0.625m'\z\(em\v'-0.625m'\(em\v'0.8m'\s0\h'-0.1m'\v'-0.05m'\(br\v'0.05m'\h'0.1m'
  1564. .ds qa \z\e\h'0.35m'\z\(sl\h'-0.33m'\v'-0.3m'\s-4\(em\s0\v'0.3m'\h'0.15m'
  1565. .rm #h #v
  1566. .ll 6.0i
  1567. .lt 6.0i
  1568. .de @U
  1569. .tm The \\$1 macro has been removed from this version of the -me macros.
  1570. ..
  1571. .de lo
  1572. .@U lo
  1573. ..
  1574. .de th
  1575. .@U th
  1576. ..
  1577. .de ac
  1578. .@U ac
  1579. ..
  1580.